﻿Public Class frmAgregarUsuario

    Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
        If Me.txtNombres.EditValue IsNot Nothing And Me.txtApellidos.EditValue IsNot Nothing And Me.txtNombreUsuario.EditValue IsNot Nothing And Me.txtContraseña.EditValue IsNot Nothing And Me.txtContraseña2.EditValue IsNot Nothing Then
            If Me.txtContraseña.EditValue.ToString = Me.txtContraseña2.EditValue.ToString Then
                Me.UsuarioTableAdapter.Insert(Me.txtNombreUsuario.EditValue.ToString, Me.txtContraseña.EditValue.ToString, Me.txtNombres.EditValue.ToString, Me.txtApellidos.EditValue.ToString)
                MessageBox.Show("Se ha agregado el usuario correctamente a los registros", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)
                Me.Dispose()
                Me.Close()
            Else
                MessageBox.Show("Su contraseña no coincide con la verificación, Ingrese su contraseña nuevamente.", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Error)
                Me.txtContraseña.Focus()
            End If
        Else
            MessageBox.Show("¡No se han ingresado todos los datos!, Llene los datos faltantes e intentelo de nuevo.", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Dispose()
        Me.Close()
    End Sub

    Private Sub frmAgregarUsuario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'LabCDMDataSet.Usuario' Puede moverla o quitarla según sea necesario.
        Me.UsuarioTableAdapter.Fill(Me.LabCDMDataSet.Usuario)

    End Sub
End Class